Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/iBTC 1,691,576,071 2,244.54 289,008,297 3,383,152,142 4,514.29 2,744,492,074 1,691,576,071.24 136270.4
lp://DOT/LCDOT 343,006,259 448.77 70,481,236 338,846,557 443.26 69,692,369 4,159,701.38 335.1
lp://AUSD/LDOT 3,760,971 12.46 4,605,990 7,520,812 24.96 8,988,775 3,759,841.01 302.9
lp://AUSD/INTR 1,241,338 0.15 1,973,476 2,482,675 0.29 3,167,124 1,241,337.69 100
lp://AUSD/LCDOT 17,700,949 444.65 46,803,268 17,692,119 441.92 46,651,547 8,830.70 0.7
lp://ACA/AUSD 18,190,805 4,443.96 20,804,472 18,193,813 4,500.66 21,036,505 3,007.19 0.2

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,742,709.92 -1,420.47 -5,206.10 NA NA NA NA NA
lp://KINT/KUSD -1,309,295.71 -342.13 -4,220.17 NA NA NA NA NA
lp://PHA/KUSD -1,080,913.83 -611.01 -2,287.02 NA NA NA NA NA
lp://KUSD/KBTC 1,671,483.68 -49.89 -3,574.31 359,123.35 54,651.06 241,266.92 1,312,360.33 NA
lp://KUSD/KINT 1,296,049.20 -213.98 -3,486.65 8,575.66 367.35 6,157.70 1,287,473.55 NA
lp://KUSD/PHA 1,072,199.11 -314.73 -1,784.98 18,907.61 2,121.29 18,410.69 1,053,291.50 NA
lp://TAI/sa%3A%2F%2F0 0.00 0.00 0.00 6,928.03 1,855.44 5,888.46 6,928.03 NA
lp://KAR/LKSM 503,203.68 21,053.30 123,566.07 500,745.58 37,288.74 239,558.15 2,458.10 NA
lp://KUSD/KSM 505,320.42 1,570.85 914,043.96 506,341.21 1,572.29 921,276.09 1,020.78 NA
lp://KUSD/LKSM 402,101.80 65,755.32 376,875.44 402,805.92 68,676.52 442,401.60 704.12 NA
lp://KSM/LKSM 82,447.55 7,033.44 44,479.20 82,989.25 8,081.37 45,689.08 541.70 NA
lp://KAR/KSM 829,432.61 1,573.41 474,733.87 829,970.86 1,574.02 477,249.24 538.24 NA
lp://KAR/KUSD 493,437.01 510.25 392,197.25 493,309.66 509.55 594,277.40 127.35 NA
lp://KUSD/PARA2 69,528.85 2,672.95 63,951.61 69,632.72 6,440.04 152,470.27 103.87 NA
lp://KUSD/ASTR 5,668.33 238.43 2,779.42 5,717.03 241.11 4,419.35 48.71 NA
lp://KAR/ASTR 4,953.12 165.02 2,986.49 5,001.64 382.74 4,004.51 48.52 NA
lp://KSM/PARA 39.20 0.00 68.34 78.54 4.77 216.44 39.34 NA
lp://KUSD/WBTC 29,621.40 669.17 6,597.95 29,649.71 738.16 8,197.76 28.31 NA
lp://KUSD/BNC 54,486.45 2,275.65 18,973.36 54,475.62 2,275.65 19,091.46 10.83 NA
lp://KUSD/GLMR 11,229.06 852.29 16,726.64 11,222.15 852.30 16,727.75 6.91 NA
lp://KSM/GLMR 4,098.37 379.43 5,313.39 4,102.02 379.77 7,384.57 3.66 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```